﻿Imports Licenta3.Common.Classes
Imports Autodesk.AutoCAD.Runtime

Public Class Anexa2ViewModel
    Inherits AnexaViewModel(Of Anexa2Class)

    Private _TipDocCadastrala As New TipDocCadastrala(TipDocCadastrala.EnumDocCadastrala.Alipire, TipDocCadastrala.EnumDocCadastrala.Dezlipire)
    Public ReadOnly Property TipDocCadastrala As TipDocCadastrala
        Get
            Return _TipDocCadastrala
        End Get
    End Property
    Private _TipInscriere As New TipInscriere
    Public ReadOnly Property TipInscriere As TipInscriere
        Get
            Return _TipInscriere
        End Get
    End Property
    Private _TipRaspuns As New TipRaspuns
    Public ReadOnly Property TipRaspuns As TipRaspuns
        Get
            Return _TipRaspuns
        End Get
    End Property
    Public Sub New()
        Anexa.Autorizat = Setari.currentAutorizat
        Anexa.OCPI = Anexa.Autorizat.DefaultOCPI
        Anexa.BCPI = Anexa.Autorizat.DefaultBCPI
        'Me.UpdateAnexaUAT()
    End Sub

    '<CommandMethod(prefix + "anexa2")>
    'Public Sub Anexa2ShowDialog()
    '    Dim Anexa2Window As New ContentWindow(New Anexa2View, "Anexa2")
    '    Anexa2Window.Show()
    'End Sub
End Class
